home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / pegand2a.arj / PEGANDC2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-01  |  11KB  |  389 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     String   TSTRING001(100)
  32.     String   TSTRING002(100)
  33.     String   TSTRING003(100)
  34.     String   TSTRING004(100)
  35.     String   STRING005
  36.     String   STRING006
  37.     String   TSTRING007(100)
  38.     String   TSTRING008(100)
  39.     String   TSTRING009(100)
  40.     String   TSTRING010(100)
  41.     String   TSTRING011(100)
  42.     String   STRING012
  43.     String   TSTRING013(100)
  44.     String   STRING014
  45.     String   STRING015
  46.     String   STRING016
  47.     String   STRING017
  48.     String   STRING018
  49.     String   STRING019
  50.     String   TSTRING020(100)
  51.     String   STRING021
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     StartDisp 1
  56.     For INTEGER001 = 1 To 2
  57.         RdUNet INTEGER001
  58.         TSTRING001(INTEGER001) = RTrim(UN_Name(), " ")
  59.         TSTRING002(INTEGER001) = RTrim(UN_City(), " ")
  60.         TSTRING003(INTEGER001) = UN_Stat()
  61.         TSTRING004(INTEGER001) = RTrim(UN_Oper(), " ")
  62.     Next
  63.     TSTRING003(PcbNode()) = "WHO"
  64.     Cls
  65.     PrintLn 
  66.     PrintLn 
  67.     PrintLn 
  68.     PrintLn "@X70 ┌@X7F───────────────────────────────────────────────────────────────────────────@X70┐ @X0F"
  69.     PrintLn "@X70 @X78│                  @XF0* @X74WHO'S ON * PEGANODE ACTIVITY REPORT @XF0*                  @X7F│ @X0F"
  70.     PrintLn "@X70 @X78│@X74N@X78ode          @XFE         UNREGISTERED EVALUATION COPY                 @X74T@X78ime  @X7F │ @X0F"
  71.     PrintLn "@X70 @X78│ @X74N@X78o        @X74C@X78ALLER            @X74F@X78ROM                @X74A@X78CTIVITY           @X74L@X78eft   @X7F│ @X0F"
  72.     PrintLn "@X70 @X78│──── ────────────────── ─────────────── ───────────────────────── ──────── @X7F│ @X0F"
  73.     :LABEL001
  74.     Gosub LABEL005
  75.     For INTEGER002 = 1 To 2
  76.         TSTRING007(INTEGER002) = ""
  77.         STRING018 = I2S(INTEGER002, 10)
  78.         STRING015 = "\PEGANODE\PEGTIME." + STRING018
  79.         If (Exist(STRING015)) Goto LABEL002
  80.         TSTRING007(INTEGER002) = ""
  81.         Goto LABEL003
  82.         :LABEL002
  83.         FOpen 1, STRING015, 0, 0
  84.         FGet 1, INTEGER010
  85.         FGet 1, STRING016
  86.         FClose 1
  87.         For INTEGER007 = 1 To 7
  88.             STRING019 = Mid(STRING016, INTEGER007, 1)
  89.             Select Case (STRING019)
  90.                 Case "m"
  91.                     Break
  92.                 Case "("
  93.                     STRING019 = ""
  94.             End Select
  95.             STRING017 = STRING017 + STRING019
  96.         Next
  97.         INTEGER012 = S2I(STRING017, 10)
  98.         INTEGER011 = INTEGER012 - (Time() - INTEGER010) / 60
  99.         TSTRING007(INTEGER002) = ""
  100.         TSTRING007(INTEGER002) = I2S(INTEGER011, 10)
  101.         TSTRING007(INTEGER002) = LTrim(RTrim(TSTRING007(INTEGER002), " "), " ")
  102.         STRING017 = ""
  103.         Gosub LABEL009
  104.         If (TSTRING003(INTEGER002) == "WHO") TSTRING007(INTEGER002) = "@TIMELEFT@"
  105.         :LABEL003
  106.         TSTRING004(INTEGER002) = RTrim(TSTRING004(INTEGER002), " ")
  107.         TSTRING004(INTEGER002) = LTrim(TSTRING004(INTEGER002), " ")
  108.         STRING006 = INTEGER002
  109.         If (INTEGER002 < 10) Then
  110.             STRING006 = " " + STRING006
  111.         ElseIf (INTEGER002 >= 10) Then
  112.             STRING006 = STRING006
  113.         Endif
  114.         If (TSTRING003(INTEGER002) == "WHO") Then
  115.             AnsiPos 1, INTEGER002 + 8
  116.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @POS:44@@X78Viewing @X74PEGANODE @POS:69@@X71@TIMELEFT:3R@@X70 @POS:73@Min @POS:77@@X7F │ @X0F"
  117.             Continue
  118.         Endif
  119.         If (TSTRING003(INTEGER002) == "") Then
  120.             AnsiPos 1, INTEGER002 + 8
  121.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@X78@POS:8@Unavailable Node @POS:77@ @X7F│ @X0F"
  122.             Continue
  123.         Endif
  124.         If (TSTRING003(INTEGER002) == " ") Then
  125.             AnsiPos 1, INTEGER002 + 8
  126.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X78Available Node @POS:77@ @X7F│ @X0F"
  127.             Continue
  128.         Endif
  129.         If (TSTRING003(INTEGER002) == "O") Then
  130.             AnsiPos 1, INTEGER002 + 8
  131.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X7FLogging On             @POS:77@ │ @X0F"
  132.             Continue
  133.         Endif
  134.         If (TSTRING003(INTEGER002) == "D") Then
  135.             AnsiPos 1, INTEGER002 + 8
  136.             TSTRING001(INTEGER002) = RTrim(TSTRING001(INTEGER002), " ")
  137.             INTEGER004 = Len(TSTRING001(INTEGER002))
  138.             TSTRING004(INTEGER002) = RTrim(TSTRING004(INTEGER002), " ")
  139.             INTEGER003 = Len(TSTRING004(INTEGER002))
  140.             Gosub LABEL006
  141.             TSTRING013(INTEGER002) = "@X7CDr: @X7B" + TSTRING004(INTEGER002)
  142.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), "@POS:44@", TSTRING013(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min @POS:77@ @X7F│ @X0F"
  143.             Continue
  144.         Endif
  145.         If (TSTRING003(INTEGER002) == "A") Then
  146.             AnsiPos 1, INTEGER002 + 8
  147.             TSTRING004(INTEGER002) = "Available For Chat"
  148.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @POS:28@@X7E", TSTRING002(INTEGER002), " @X7F@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  149.             Continue
  150.         Endif
  151.         If (TSTRING003(INTEGER002) == "T") Then
  152.             AnsiPos 1, INTEGER002 + 8
  153.             Gosub LABEL007
  154.             Gosub LABEL008
  155.             Continue
  156.         Endif
  157.         If (TSTRING003(INTEGER002) == "S") Then
  158.             AnsiPos 1, INTEGER002 + 8
  159.             TSTRING004(INTEGER002) = "Answering Script"
  160.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X76@POS:44@", TSTRING004(INTEGER002), "@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  161.             Continue
  162.         Endif
  163.         If (TSTRING003(INTEGER002) == "N") Then
  164.             AnsiPos 1, INTEGER002 + 8
  165.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Running Event      @POS:77@ @X7F│ @X0F"
  166.             Continue
  167.         Endif
  168.         If (TSTRING003(INTEGER002) == "L") Then
  169.             AnsiPos 1, INTEGER002 + 8
  170.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Logoff Pending     @POS:77@ @X7F│ @X0F"
  171.             Continue
  172.         Endif
  173.         If (TSTRING003(INTEGER002) == "R") Then
  174.             AnsiPos 1, INTEGER002 + 8
  175.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@DOS Recycle Pending@POS:77@ @X7F│ @X0F"
  176.             Continue
  177.         Endif
  178.         If (TSTRING003(INTEGER002) == "V") Then
  179.             AnsiPos 1, INTEGER002 + 8
  180.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@No Caller On Line  @POS:77@ @X7F│ @X0F"
  181.             Continue
  182.         Endif
  183.         If (TSTRING003(INTEGER002) == "W") Then
  184.             AnsiPos 1, INTEGER002 + 8
  185.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Drop To DOS Pending@POS:77@ @X7F│ @X0F"
  186.             Continue
  187.         Endif
  188.         If (TSTRING003(INTEGER002) == "C") Then
  189.             AnsiPos 1, INTEGER002 + 8
  190.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Chatting With Sysop@POS:69@@X71", TSTRING007(INTEGER002), "@X70@POS:73@Min@POS:77@ @X7F│ @X0F"
  191.             Continue
  192.         Endif
  193.         If (TSTRING003(INTEGER002) == "F") Then
  194.             AnsiPos 1, INTEGER002 + 8
  195.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  196.             Continue
  197.         Endif
  198.         If (TSTRING003(INTEGER002) == "G") Then
  199.             AnsiPos 1, INTEGER002 + 8
  200.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X7A@POS:44@Chatting With Group@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  201.             Continue
  202.         Endif
  203.         If (TSTRING003(INTEGER002) == "E") Then
  204.             AnsiPos 1, INTEGER002 + 8
  205.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X71@POS:44@Entering A Message@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  206.             Continue
  207.         Endif
  208.         If (TSTRING003(INTEGER002) == "M") Then
  209.             AnsiPos 1, INTEGER002 + 8
  210.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X71@POS:44@Reading A Message@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  211.             Continue
  212.         Endif
  213.         If (TSTRING003(INTEGER002) == "B") Then
  214.             AnsiPos 1, INTEGER002 + 8
  215.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X70@POS:44@Out in DOS@POS:77@ @X7F│ @X0F"
  216.             Continue
  217.         Endif
  218.         If (TSTRING003(INTEGER002) == "P") Then
  219.             AnsiPos 1, INTEGER002 + 8
  220.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Paging SysOp@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  221.             Continue
  222.         Endif
  223.         If (TSTRING003(INTEGER002) == "U") Then
  224.             AnsiPos 1, INTEGER002 + 8
  225.             TSTRING004(INTEGER002) = "Can't Chat Right Now"
  226.             PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X79@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  227.             Continue
  228.         Endif
  229.         AnsiPos 1, INTEGER002 + 8
  230.         PrintLn "@X70 @X78│@X74@POS:4@", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X76@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  231.     Next
  232.     PrintLn "@X70 └@X78───────────────────────────────────────────────────────────────────────────@X70┘ @X0F"
  233.     PrintLn "@X08  v2.0a                                      COPYRIGHT (C) 1994 CHRIS MICHAELS"
  234.     PrintLn 
  235.     PrintLn "@X0E(@X0C", MinLeft(), "@X0E min. left) @X0APress (@X0EQ@X0A) to continue...Screen will update every second"
  236.     STRING014 = MinLeft()
  237.     If (MinLeft() < 5) Goto LABEL004
  238.     STRING005 = Inkey()
  239.     STRING005 = Upper(STRING005)
  240.     If (STRING005 == "Q") Goto LABEL004
  241.     For INTEGER001 = 1 To 10
  242.         RdUNet INTEGER001
  243.         TSTRING001(INTEGER001) = RTrim(UN_Name(), " ")
  244.         TSTRING002(INTEGER001) = RTrim(UN_City(), " ")
  245.         TSTRING003(INTEGER001) = UN_Stat()
  246.         TSTRING004(INTEGER001) = RTrim(UN_Oper(), " ")
  247.     Next
  248.     TSTRING003(PcbNode()) = "WHO"
  249.     Goto LABEL001
  250.     :LABEL004
  251.     StartDisp 2
  252.     End
  253.     :LABEL005
  254.     For INTEGER002 = 1 To 2
  255.         Tokenize TSTRING002(INTEGER002)
  256.         INTEGER008 = TokCount()
  257.         For INTEGER009 = 1 To INTEGER008
  258.             GetToken TSTRING020(INTEGER009)
  259.             If (Right(TSTRING020(INTEGER009), 1) == ",") Then
  260.                 TSTRING020(INTEGER009) = Left(TSTRING020(INTEGER009), Len(TSTRING020(INTEGER009)) - 1)
  261.                 Continue
  262.             Endif
  263.             If (Right(TSTRING020(INTEGER009), 1) == ".") Then
  264.                 TSTRING020(INTEGER009) = Left(TSTRING020(INTEGER009), Len(TSTRING020(INTEGER009)) - 1)
  265.             Endif
  266.         Next
  267.         For INTEGER009 = 1 To INTEGER008
  268.             STRING021 = STRING021 + TSTRING020(INTEGER009) + " "
  269.             TSTRING020(INTEGER009) = ""
  270.         Next
  271.         TSTRING002(INTEGER002) = Left(STRING021, 13)
  272.         STRING021 = ""
  273.     Next
  274.     :LABEL006
  275.     If (Left(TSTRING001(INTEGER002), INTEGER004) == Left(TSTRING004(INTEGER002), INTEGER004)) Then
  276.         TSTRING004(INTEGER002) = "@X7B" + Right(TSTRING004(INTEGER002), INTEGER003 - INTEGER004 - 3)
  277.         TSTRING004(INTEGER002) = LTrim(Left(TSTRING004(INTEGER002), 24), " ")
  278.     Endif
  279.     Return
  280.     :LABEL007
  281.     Tokenize TSTRING004(INTEGER002)
  282.     GetToken TSTRING008(INTEGER002)
  283.     GetToken TSTRING009(INTEGER002)
  284.     GetToken STRING012
  285.     GetToken TSTRING010(INTEGER002)
  286.     GetToken STRING012
  287.     GetToken TSTRING011(INTEGER002)
  288.     INTEGER005 = Len(TSTRING010(INTEGER002)) - 4
  289.     TSTRING010(INTEGER002) = Left(TSTRING010(INTEGER002), INTEGER005) + "K"
  290.     TSTRING004(INTEGER002) = TSTRING008(INTEGER002) + " " + TSTRING009(INTEGER002) + " " + TSTRING010(INTEGER002)
  291.     Return
  292.     :LABEL008
  293.     Select Case (TSTRING008(INTEGER002))
  294.         Case "(D)"
  295.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@", TSTRING004(INTEGER002), "@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  296.         Case "(U)"
  297.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X75@POS:44@(U)ploading A File @XFC@X71@POS:69@", TSTRING007(INTEGER002), "@X70 @POS:73@Min@POS:77@ @X7F│ @X0F"
  298.         Case Else
  299.             PrintLn "@X70 @X78│@POS:4@@X74", STRING006, "@POS:8@@X70", Left(TSTRING001(INTEGER002), 19), " @X7E@POS:28@", TSTRING002(INTEGER002), " @X74@POS:44@Preparing File Transfer@POS:69@@X71", TSTRING007(INTEGER002), "@X70 @POS:73@Min@X7F@POS:77@ │ @X0F"
  300.     End Select
  301.     Return
  302.     :LABEL009
  303.     TSTRING007(INTEGER002) = LTrim(RTrim(TSTRING007(INTEGER002), " "), " ")
  304.     INTEGER006 = Len(TSTRING007(INTEGER002))
  305.     Select Case (INTEGER006)
  306.         Case 1
  307.             TSTRING007(INTEGER002) = "  " + TSTRING007(INTEGER002)
  308.         Case 2
  309.             TSTRING007(INTEGER002) = " " + TSTRING007(INTEGER002)
  310.         Case 3
  311.             TSTRING007(INTEGER002) = TSTRING007(INTEGER002)
  312.         Case 4
  313.             TSTRING007(INTEGER002) = "99+"
  314.     End Select
  315.     Return
  316.  
  317. ;------------------------------------------------------------------------------
  318. ;
  319. ; Usage report (before postprocessing)
  320. ;
  321. ; ■ Statements used :
  322. ;
  323. ;    1       End
  324. ;    1       Cls
  325. ;    83      Goto 
  326. ;    72      Let 
  327. ;    36      PrintLn 
  328. ;    45      If 
  329. ;    1       FOpen 
  330. ;    1       FClose 
  331. ;    2       FGet 
  332. ;    2       StartDisp 
  333. ;    5       Gosub 
  334. ;    4       Return
  335. ;    2       Tokenize 
  336. ;    7       GetToken 
  337. ;    2       RdUNet 
  338. ;    22      AnsiPos 
  339. ;
  340. ;
  341. ; ■ Functions used :
  342. ;
  343. ;    1       /
  344. ;    43      +
  345. ;    7       -
  346. ;    33      ==
  347. ;    9       <
  348. ;    7       <=
  349. ;    16      >=
  350. ;    41      !
  351. ;    14      &&
  352. ;    7       ||
  353. ;    6       Len(
  354. ;    1       Upper()
  355. ;    1       Mid()
  356. ;    28      Left()
  357. ;    3       Right()
  358. ;    4       LTrim()
  359. ;    11      RTrim()
  360. ;    1       Time()
  361. ;    1       Inkey()
  362. ;    2       PcbNode()
  363. ;    2       UN_Stat()
  364. ;    2       UN_Name()
  365. ;    2       UN_City()
  366. ;    2       UN_Oper()
  367. ;    3       MinLeft()
  368. ;    1       Exist()
  369. ;    2       I2S()
  370. ;    1       S2I()
  371. ;    1       TokCount()
  372. ;
  373. ;------------------------------------------------------------------------------
  374. ;
  375. ; Analysis flags : No flag
  376. ;
  377. ;------------------------------------------------------------------------------
  378. ;
  379. ; Postprocessing report
  380. ;
  381. ;    7       For/Next
  382. ;    0       While/EndWhile
  383. ;    26      If/Then or If/Then/Else
  384. ;    3       Select Case
  385. ;
  386. ;------------------------------------------------------------------------------
  387. ;                 AEGiS Corp - Break the routines, code against the machines!
  388. ;------------------------------------------------------------------------------
  389.